﻿Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Windows.Input
Imports System.Windows.Media
Imports System.Windows.Media.Imaging
Imports System.Windows.Navigation
Imports System.Windows.Shapes
Class MainWindow
    Private Sub LayoutRoot_Scroll(sender As System.Object, e As System.Windows.Controls.Primitives.ScrollEventArgs)

    End Sub

    Private Sub MainWindow_Initialized(sender As Object, e As System.EventArgs) Handles Me.Initialized
    End Sub

    Private Sub TopBar_MouseLeftButtonDown(sender As System.Object, e As System.Windows.Input.MouseButtonEventArgs)
        DragMove()
    End Sub

    Private Sub Hyperlink_MouseDown(sender As Object, e As System.Windows.Input.MouseButtonEventArgs) Handles Hyperlink.MouseDown
        Process.Start("http://tgapps.codeplex.com/")
    End Sub

    Private Sub Window_Loaded(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded

    End Sub

    Private Sub Close_MouseDown(sender As Object, e As System.Windows.Input.MouseButtonEventArgs) Handles img_Close.MouseDown
        End
    End Sub

    Private Sub btn_Close_Click(sender As Object, e As System.Windows.RoutedEventArgs) Handles btn_Close.Click
        End
    End Sub

    Private Sub img_Close_ImageFailed(ByVal sender As System.Object, ByVal e As System.Windows.ExceptionRoutedEventArgs) Handles img_Close.ImageFailed

    End Sub

    Private Sub img_Close_MouseLeave(ByVal sender As System.Object, ByVal e As System.Windows.Input.MouseEventArgs)
        Dim bmp As New BitmapImage()
        bmp.BeginInit()
        bmp.UriSource = New Uri("/winver;component/Images/close2.png", UriKind.Relative)
        bmp.EndInit()
        img_Close.Source = bmp
    End Sub

    Private Sub img_Close_MouseEnter(ByVal sender As System.Object, ByVal e As System.Windows.Input.MouseEventArgs)
        Dim bmp As New BitmapImage()
        bmp.BeginInit()
        bmp.UriSource = New Uri("/winver;component/Images/closedarken.png", UriKind.Relative)
        bmp.EndInit()
        img_Close.Source = bmp
    End Sub
End Class
